home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / r / rocketz1.dms / rocketz1.adf / HD_Install < prev    next >
Text File  |  1978-01-04  |  7KB  |  396 lines
  1. ;
  2. ;  Roketz HD Install script V1.0
  3. ;
  4.  
  5. (set @default-dest "Work:")    
  6.  
  7.  
  8. (welcome (message "\n\n\nThis little script will help you to Install "
  9.                   "Roketz to Your hard disk. Just follow the instructions." 
  10.                   "Note that if you have PD version installed "
  11.                   "in your HD then you could select this directory. " 
  12.                   "Installer will take care of everything then.") 
  13. )
  14.  
  15.  
  16. (complete 0)
  17. (set dest2 (askdir  (prompt "Select the directory in which you would\n"
  18.                             "like Roketz files to be copied."
  19.                     )
  20.                           (default @default-dest)
  21.                           (help "No help")
  22.                 )
  23.      )
  24.  
  25.  
  26. (set dest1 (tackon dest2 ""))
  27.  
  28. (if (<> (exists dest2) 2) (makedir dest2 (infos)))
  29.  
  30.      
  31.      (set @default-dest dest1)    
  32.  
  33. (set version (/ (getversion) 65536))
  34.      (message "\n\n\n\nAll files needed for Roketz will be copied to the\n'" dest1 "'\nDrawer or partition!" 
  35. )
  36.  
  37. (complete 5)
  38. (set kas 0)
  39.         
  40. (if (exists (tackon dest1 "Edekad.MFB"))
  41.  
  42. (set kas
  43.     (askbool
  44.         (prompt "\n\nThe directory you have selected contains "
  45.             "Hall-of-Fame file for Roketz PD. Do you want to "
  46.                     "delete your pilot files and hall-of-fame?\n\n"
  47.                     "If you select [Delete 'em] then all your Pilot-"
  48.                     "files and records will be deleted. If you "
  49.                     "select [Keep 'em] then you have an "
  50.                     "opportunity to play with same Pilot-files "
  51.                     "and keep your Hall-of-Fame from PD version."  
  52.             )
  53.         (help "N/A")
  54.         (choices "Delete 'em" "Keep 'em")
  55.         (default 0)
  56.     )
  57. )
  58. )
  59.  
  60.  
  61. (if (= 1 kas)
  62.  (delete (tackon dest1 "edekad.mfb"))
  63. )
  64.  
  65. (if (= 1 kas)
  66.  (run (cat "Delete ALL " (tackon dest1 "pilots")))
  67. )
  68.  
  69. (working "Cheking...")
  70.  
  71. (delete (tackon dest1 "MF_Rextra1.DAT"))
  72. (delete (tackon dest1 "MF_Rextra2.DAT"))
  73. (delete (tackon dest1 "MF_Rlevel1.DAT"))
  74. (delete (tackon dest1 "MF_Rlevel2.DAT"))
  75. (delete (tackon dest1 "MF_Roket1.DAT"))
  76. (delete (tackon dest1 "MF_Roket2.DAT"))
  77. (delete (tackon dest1 "readme"))
  78. (delete (tackon dest1 "readme.info"))
  79. (delete (tackon dest1 "roketzpd"))
  80. (delete (tackon dest1 "roketzpd.info"))
  81. (delete (tackon dest1 "RP_Eq3.DAT"))
  82. (delete (tackon dest1 "RP_Eq4.DAT"))
  83. (delete (tackon dest1 "RP_frm.DAT"))
  84. (delete (tackon dest1 "RP_gfx.DAT"))
  85. (delete (tackon dest1 "RP_kel.DAT"))
  86. (delete (tackon dest1 "RP_mus.DAT"))
  87. (delete (tackon dest1 "RP_ram.DAT"))
  88. (delete (tackon dest1 "RP_sfx.DAT"))
  89. (delete (tackon dest1 "RP_tit.DAT"))
  90. (delete (tackon dest1 "RP_val.DAT"))
  91. (delete (tackon dest1 "PDmsf.DAT"))
  92. (delete (tackon dest1 "RP_full.DAT"))
  93.  
  94.  
  95.  
  96. (complete 10)
  97.     (copyfiles
  98.         (help @copyfiles-help)
  99.         (source "Roketz disk 1:Roketz")
  100.                 (dest dest1)
  101.         (files)
  102.                 (infos)
  103.  
  104.     )
  105.  
  106. (complete 15)
  107.     (copyfiles
  108.         (help @copyfiles-help)
  109.         (source "Roketz disk 1:Roketz_01.Dat")
  110.                 (dest dest1)
  111.         (files)
  112.     )
  113.  
  114. (complete 28)
  115.     (copyfiles
  116.         (help @copyfiles-help)
  117.         (source "Roketz disk 1:Roketz_02.Dat")
  118.                 (dest dest1)
  119.         (files)
  120.     )
  121.  
  122. (complete 20)
  123.     (copyfiles
  124.         (help @copyfiles-help)
  125.         (source "Roketz disk 1:Roketz_03.Dat")
  126.                 (dest dest1)
  127.         (files)
  128.     )
  129.  
  130. (complete 22)
  131.     (copyfiles
  132.         (help @copyfiles-help)
  133.         (source "Roketz disk 1:Roketz_04.Dat")
  134.                 (dest dest1)
  135.         (files)
  136.     )
  137.  
  138. (complete 25)
  139.     (copyfiles
  140.         (help @copyfiles-help)
  141.         (source "Roketz disk 1:Roketz_05.Dat")
  142.                 (dest dest1)
  143.         (files)
  144.     )
  145.  
  146. (complete 30)
  147.     (copyfiles
  148.         (help @copyfiles-help)
  149.         (source "Roketz disk 1:ReadMe")
  150.                 (dest dest1)
  151.         (files)
  152.         (infos)
  153.     )
  154.  
  155. (complete 32)
  156.     (copyfiles
  157.         (help @copyfiles-help)
  158.         (source "Roketz disk 1:Intro")
  159.                 (dest dest1)
  160.         (files)
  161.         (infos)
  162.     )
  163.  
  164. (complete 35)
  165.     (copyfiles
  166.         (help @copyfiles-help)
  167.         (source "Roketz disk 1:Intro_01.Dat")
  168.                 (dest dest1)
  169.         (files)
  170.     )
  171.  
  172. (complete 38)
  173.     (copyfiles
  174.         (help @copyfiles-help)
  175.         (source "Roketz disk 1:Intro_02.Dat")
  176.                 (dest dest1)
  177.         (files)
  178.     )
  179.  
  180.  
  181. (askdisk
  182.         (prompt "\n\n\nPlease insert Roketz disk 2")
  183.     (help "N/A")
  184.         (dest "Roketz disk 2")
  185.     )
  186.  
  187.  
  188. (complete 40)
  189.     (copyfiles
  190.         (help @copyfiles-help)
  191.         (source "Roketz disk 2:Roketz_06.Dat")
  192.                 (dest dest1)
  193.         (files)
  194.  
  195.     )
  196.  
  197. (complete 43)
  198.     (copyfiles
  199.         (help @copyfiles-help)
  200.         (source "Roketz disk 2:Roketz_07.Dat")
  201.                 (dest dest1)
  202.         (files)
  203.  
  204.     )
  205.  
  206. (complete 46)
  207.     (copyfiles
  208.         (help @copyfiles-help)
  209.         (source "Roketz disk 2:Roketz_08.Dat")
  210.                 (dest dest1)
  211.         (files)
  212.  
  213.     )
  214.  
  215. (complete 50)
  216.     (copyfiles
  217.         (help @copyfiles-help)
  218.         (source "Roketz disk 2:Roketz_09.Dat")
  219.                 (dest dest1)
  220.         (files)
  221.  
  222.     )
  223.  
  224. (complete 53)
  225.     (copyfiles
  226.         (help @copyfiles-help)
  227.         (source "Roketz disk 2:Roketz_10.Dat")
  228.                 (dest dest1)
  229.         (files)
  230.  
  231.     )
  232.  
  233. (complete 56)
  234.     (copyfiles
  235.         (help @copyfiles-help)
  236.         (source "Roketz disk 2:Roketz_11.Dat")
  237.                 (dest dest1)
  238.         (files)
  239.  
  240.     )
  241.  
  242. (complete 60)
  243.     (copyfiles
  244.         (help @copyfiles-help)
  245.         (source "Roketz disk 2:Roketz_12.Dat")
  246.                 (dest dest1)
  247.         (files)
  248.  
  249.     )
  250.  
  251. (complete 63)
  252.     (copyfiles
  253.         (help @copyfiles-help)
  254.         (source "Roketz disk 2:Roketz_13.Dat")
  255.                 (dest dest1)
  256.         (files)
  257.  
  258.     )
  259.  
  260. (complete 66)
  261.     (copyfiles
  262.         (help @copyfiles-help)
  263.         (source "Roketz disk 2:Roketz_14.Dat")
  264.                 (dest dest1)
  265.         (files)
  266.  
  267.     )
  268.  
  269. (complete 70)
  270.     (copyfiles
  271.         (help @copyfiles-help)
  272.         (source "Roketz disk 2:Roketz_15.Dat")
  273.                 (dest dest1)
  274.         (files)
  275.  
  276.     )
  277.  
  278. (complete 73)
  279.     (copyfiles
  280.         (help @copyfiles-help)
  281.         (source "Roketz disk 2:Roketz_16.Dat")
  282.                 (dest dest1)
  283.         (files)
  284.  
  285.     )
  286.  
  287. (complete 76)
  288.     (copyfiles
  289.         (help @copyfiles-help)
  290.         (source "Roketz disk 2:Roketz_17.Dat")
  291.                 (dest dest1)
  292.         (files)
  293.  
  294.     )
  295.  
  296.  
  297. (complete 80)
  298.     (copyfiles
  299.         (help @copyfiles-help)
  300.         (source "Roketz disk 2:Roketz_18.Dat")
  301.                 (dest dest1)
  302.         (files)
  303.  
  304.     )
  305.  
  306. (complete 83)
  307.     (copyfiles
  308.         (help @copyfiles-help)
  309.         (source "Roketz disk 2:Roketz_19.Dat")
  310.                 (dest dest1)
  311.         (files)
  312.  
  313.     )
  314.  
  315. (complete 86)
  316.     (copyfiles
  317.         (help @copyfiles-help)
  318.         (source "Roketz disk 2:Roketz_20.Dat")
  319.                 (dest dest1)
  320.         (files)
  321.  
  322.     )
  323.  
  324. (complete 90)
  325.     (copyfiles
  326.         (help @copyfiles-help)
  327.         (source "Roketz disk 2:Roketz_21.Dat")
  328.                 (dest dest1)
  329.         (files)
  330.  
  331.     )
  332.  
  333. (complete 92)
  334.     (copyfiles
  335.         (help @copyfiles-help)
  336.         (source "Roketz disk 2:Roketz_22.Dat")
  337.                 (dest dest1)
  338.         (files)
  339.  
  340.     )
  341.  
  342. (complete 94)
  343.     (copyfiles
  344.         (help @copyfiles-help)
  345.         (source "Roketz disk 2:Roketz_23.Dat")
  346.                 (dest dest1)
  347.         (files)
  348.  
  349.     )
  350.  
  351. (complete 95)
  352.     (copyfiles
  353.         (help @copyfiles-help)
  354.         (source "Roketz disk 2:Roketz_24.Dat")
  355.                 (dest dest1)
  356.         (files)
  357.  
  358.     )
  359.  
  360. (complete 97)
  361.     (copyfiles
  362.         (help @copyfiles-help)
  363.         (source "Roketz disk 2:Roketz_25.Dat")
  364.                 (dest dest1)
  365.         (files)
  366.  
  367.     )
  368.  
  369.  
  370. (complete 98)
  371.    (copyfiles 
  372.       (source "Roketz disk 2:Pilots/")
  373.       (help @copyfiles-help)
  374.                 (dest (tackon dest1 "Pilots"))
  375.       (all)
  376.    )
  377.  
  378. (complete 99)
  379.    (copyfiles 
  380.       (source "Roketz disk 2:Pilots.info")
  381.       (help @copyfiles-help)
  382.                 (dest dest1 )
  383.       (files)
  384.    )
  385.  
  386.  
  387. (complete 100)
  388.  
  389. (exit "NOTE: If you have no fast mem and have problems "
  390.       "running Roketz from Workbench then try booting "
  391.       "without startup-sequence and run it from DOS prompt."
  392.       "This way you gain more free memory."
  393.      
  394.  
  395. )
  396.